* calc/calc-units.el (math-midi-round): Translate calc-note-threshold

  to an appropriate fraction.

diff --git a/lisp/calc/calc-units.el b/lisp/calc/calc-units.el
index f022f4f472b7efcc46ab04590a810d2f4f33b808..7f0adc9fe7ed0defcd5f50d49c321f2cb98a2d8c 100644 (file)
--- a/lisp/calc/calc-units.el
+++ b/lisp/calc/calc-units.el
@@ -1869,7 +1869,8 @@ In symbolic mode, return the list (^ a b)."
   (let* ((n (math-round num))
          (diff (math-abs
                 (math-sub num n))))
-    (if (< (math-compare diff (math-read-expr calc-note-threshold)) 0)
+    (if (< (math-compare diff 
+                         (math-div (math-read-expr calc-note-threshold) 100)) 0)
         n
       num)))